MUSIC COMPOSER W/EAR 5 on 5 EVIT 
( ConaPosS By £Afi) 

T/i/C4 pA.ogA.am Id dedlgned to allott {ull udage o{ dynthedlzer 
{unctlond at a relatively ktgk dpeed,{18 changed /dec. ) allotting 
up to 5 39 changed on. entrled ,and aldo allotting the uder to det up 
melody patternd {lrdt,and then" dqueezlng In" timing d ,or deleting 
mid taked , later. The noted being entered may be heard and compared 
agalndt preceedlng noted {on. correctnedd be {ore being written. 

With alt thede {unctlond , hottever, operation may be dl{{lcult at { Irdt , 
requiring a little practice . 



r 

to 



VISPLAY AMO INSTRUCTIONS 

[dynth. {unc.Wb 17 18 19 10 tl 2 2 2 3 2 4; {*14 uded {on. timing] 

' mem. podlt. hcO 0 -0^*0 pod. tkeepd track o{ hlghedt pod. udeu { Z } 

0 = djkcenten. pod . alttayd one being operated on 
_Q- 0 ^{allotting value aldo dldptayd ^, KN 

^ ^ value n-arrott dhottd { unc . delect on 5(2 0] 

function (I*) dtart entering noted on. changed 0 

pod. * 1 . Max. allottabte timing , 999. 
be halted at any time and vo turned det manually by; 
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To jump Quickly to any mem. 

pod. tt/o udlng j oydtlck ,det A to dedlred toe. GOTO 7 again to run. 
There are ttto routined In thld pn.ogn.am tthere hand controller * 1 
had dl{{erent { unctlond ad { oltottd . 

Routine * 1 KN- {unction delect, JY le{t-ttnlte note on. valuelN) ,JY night- 
enter routine *2 ,TR-hear note on. execute center dldplay operation , 
JX-mem. advance on. retreat," PRINT" playd comp. , " SPACE" dqueezed ln,~^ 
"ERASE" deleted centen. dldplay 5 moved everything dottn. every th.hg up i 

Routine * 2 KN - no {unc. ,JY -delect nett value, JX le{t-hear centen. pod., 
JX rlght-hear value judt entered ad arrott {unction. ,TR- return to main 
program. { enter value {or N 5 predd "GO") 

To execute center cLldplayed {unction 5 value, predd TR-1. A Ido be 
dure to pull TR-1 tthen making volume changed ad dong prgredded. At end 
o{ dong det all odc.'d back to 0 . ( to terminate doundSredet {or running 
agalnjTo enter a value pudh JX to right. An "N" will appear ad It ttaltd 
{or you to enter a value that can be addlgned to any {unction later. 
Hottever l{ you ttant to hear the value you judt det, the arrott mudt be 
pre-pdltloned {knob) be{ore entering thld routine. { volumed on aldo] 

To hear note a{ter entering and preddlng GO pudh JY - right. T o compare 
agalndt preceedlng note, pudh le{t.{note you ttant to compare ttlth,mudt 
be In center pod.) I{ you delected the ttrong value pudh JY either ttay , 
and make a nett detection. To return to main program(to tt rite value N ad 
any {unction) pull trigger. To advance or retreat memory pod.ude JY.tJ, 

TO ttrlte {unction (t) 5 value In center pod. pudh JX le{t.To delete 
midtake pudh erode key {tthatever Id In center pod. ttlll be eliminated) 
To put In a dpce . {or extra note hit dpace key. {{or the ladt ttto edit 
{unctlond hold the key dottn until le{t dlde o{ dcreen {ladhed once) 

To play eompodltlon hit PRINT .!{ TR Id pulled on *24 {unct. 816 ttlll 
have ta be redet. I{ dcreen goed black tthlle In value enter routine, 
you had 0- 0* d In center pod. Simply pull TR to return to main prog. 

5 color ttlll be red to red. To record completed compodltlonf f'HpHTj LI S 7 
; FOR A= 0 TO 2; PRINT"0 ( " , *0 , A, " ) »" , *0 ,0 A ; NEXT A; A* A- 1 ; PRI N i " uuTO 7 




MUSIC COMPOSER W /EARS OtJ ANV EVIT 

.GOTO 1 TO RUN 

i 3 FOR 8=1 TO 2; GOT 0 @(B)*F x‘l + 4 
\ 4 SIR M~V) = RM 

5 NEXT B; GOSUB 69; RETURN 
I 6 FOR T = 1T0 RM ; NEXT T;GOTO 5 

7 CLEAR;: RETURN; NT=0; 6 ( 1 ) = 1 5 7; 6 ( 2 ) = 0 ; 6 ( 3 ) - 96 ; 6 ( 9 ) =0; 0= 1 0 0 0 ; F= 2 40 0 0; 
2 * 0 ( 0 ) 

SPRINT" 16 17 IS 19 10 21 22 23 24 

9 BOX 0, 33,160, 7, 2; K=(KN( 1 ) + 1 2 S) r 30 ; CX= Kxl S- 7 3; Cy= 33; PRINT" f 
12§(0)=2;A=A+JV( 7 ) ; I F A< 1 A* 1 
1 51 F A> l IF 0 ( AJ> 01= A 

1 SX= A-2 ; FOR B= 1 TO 3; X=X+ 1 ; CX* - 79 ; PRINT *0 , X, " , *0 , 0 ( X) ~ V,"=", 
* 0, , RM, " ; " ;NEXT 13; IF TR( 1 ) GOSUB 6 3 

21 IF 6(23j~?l6 BC=7 ; GOS UB 39 
23IF JX(1)=1 GOSUB 42 
24IF 6(21)=16 BC=7 ; GOS UB 36 

2 7IF JX( 1 ) < 0 0 (A) = (K+ 1 6) xV+N 
30 IF 6(20)=16 GOSUB 3 
336(0)=134;BC=236;GOTO 9 

36FOR B= A TO 2; 0 (B ) * 0 (B+ 1 ) ; NEXT B; 2=2- 1 ; RETURN 
392=2+ 1 ;FOR B = 2 TO A+1 STEP - 1 ; 0 (B ) = 0 (B- 1 ) ; NEXT B; 0 ( 8) =0; RETURN 
42 CX=0 ; INPUT N; IF K= 5 l /=N 
— 45FOR 8=17 TO 1 9 ; 6 (B) =0 ; NEXT B; I F K = 6 U=N 
4SIF JX( 1 ) = 1 6 ( K+ 1 6 ) = N ; GOSUB 7 2;GOSUB 66 
51 IF JX( /) <0 GOSUB 6 3 
541 F TR{ 1 ) RETURN 
5 71 F jytl) GOTO 42 
60G0T0 45 

63G0SUB 72 ; £ ( 0 ( A)-~V) = RM; GOSUB 66; RETURN 
66FOR B= 1 TO 2 0 0;NEXT B;GOSUB 69; RETURN 
696(2 1 ) = 0 ; 6(22) = 0 : RETURN 
72 6 ( 2 1 ) = V; 6 ( 22 ) =W; RETURN 




